home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / thtmt227.arj / NUV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-27  |  32KB  |  1,528 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Date     DATE001
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     Integer  INTEGER007
  29.     Integer  INTEGER008
  30.     Integer  INTEGER009
  31.     String   STRING001
  32.     String   STRING002
  33.     String   STRING003
  34.     String   STRING004
  35.     String   STRING005
  36.     String   STRING006
  37.     String   STRING007
  38.     String   STRING008
  39.     String   STRING009
  40.     String   STRING010
  41.     String   STRING011
  42.     String   STRING012
  43.     String   STRING013
  44.     String   STRING014
  45.     String   STRING015
  46.     String   STRING016
  47.     String   STRING017
  48.     String   STRING018
  49.     String   STRING019
  50.     String   STRING020
  51.     String   STRING021
  52.     String   STRING022
  53.     String   STRING023
  54.     String   STRING024
  55.     String   STRING025
  56.     String   STRING026
  57.     String   STRING027
  58.     String   STRING028
  59.     String   STRING029
  60.     String   STRING030
  61.     String   STRING031
  62.     String   STRING032
  63.     String   STRING033
  64.     String   STRING034
  65.     String   STRING035
  66.     String   STRING036
  67.     String   STRING037
  68.     String   STRING038
  69.     String   STRING039
  70.     String   STRING040
  71.     String   STRING041
  72.     String   STRING042
  73.     String   STRING043
  74.     String   STRING044
  75.     String   STRING045
  76.     String   STRING046
  77.     String   STRING047
  78.     String   STRING048
  79.     String   TSTRING049(1)
  80.     String   STRING050
  81.     String   STRING051
  82.     String   STRING052
  83.     String   STRING053
  84.     String   STRING054
  85.     String   STRING055
  86.     String   STRING056
  87.     String   STRING057
  88.     String   STRING058
  89.     String   STRING059
  90.     String   STRING060
  91.     String   STRING061
  92.     String   STRING062
  93.     String   STRING063
  94.     String   STRING064
  95.  
  96. ;------------------------------------------------------------------------------
  97.  
  98.     STRING060 = Chr(51) + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(46) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + Chr(48) + Chr(48) + Chr(225)
  99.     STRING008 = Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING060 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)
  100.     DATE001 = Chr(48) + Chr(51) + "-" + Chr(50) + Chr(55) + "-" + Chr(57) + Chr(52)
  101.     TSTRING049(0) = Upper(ReadLine(PCBDat(), 2))
  102.     TSTRING049(1) = Upper(ReadLine(PCBDat(), 94))
  103.     BOOLEAN002 = 0
  104.     Cls
  105.     AnsiPos 1, 1
  106.     PrintLn "@X0ELoading " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + " @X0ENUV @X0F!"
  107.     STRING064 = 0
  108.     For STRING064 = 0 To 1
  109.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "1")
  110.         AnsiPos 28, 1
  111.         Print "@X0E|"
  112.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "2")
  113.         AnsiPos 28, 1
  114.         Print "@X0F/"
  115.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "3")
  116.         AnsiPos 28, 1
  117.         Print "@X0E-"
  118.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "4")
  119.         AnsiPos 28, 1
  120.         Print "@X0F\"
  121.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "5")
  122.         AnsiPos 28, 1
  123.         Print "@X0E|"
  124.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "6")
  125.         AnsiPos 28, 1
  126.         Print "@X0F/"
  127.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "7")
  128.         AnsiPos 28, 1
  129.         Print "@X0E-"
  130.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "8")
  131.         AnsiPos 28, 1
  132.         Print "@X0F\"
  133.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "9")
  134.         AnsiPos 28, 1
  135.         Print "@X0E|"
  136.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "0")
  137.         AnsiPos 28, 1
  138.         Print "@X0F/"
  139.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "=")
  140.         AnsiPos 28, 1
  141.         Print "@X0E-"
  142.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "-")
  143.         AnsiPos 28, 1
  144.         Print "@X0F\"
  145.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), " ")
  146.         AnsiPos 28, 1
  147.         Print "@X0E|"
  148.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), " ")
  149.         AnsiPos 28, 1
  150.         Print "@X0F/"
  151.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "<")
  152.         AnsiPos 28, 1
  153.         Print "@X0E-"
  154.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ">")
  155.         AnsiPos 28, 1
  156.         Print "@X0F\"
  157.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "*")
  158.         AnsiPos 28, 1
  159.         Print "@X0E|"
  160.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ")")
  161.         AnsiPos 28, 1
  162.         Print "@X0F/"
  163.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "(")
  164.         AnsiPos 28, 1
  165.         Print "@X0E-"
  166.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "{")
  167.         AnsiPos 28, 1
  168.         Print "@X0F\"
  169.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "}")
  170.         AnsiPos 28, 1
  171.         Print "@X0E|"
  172.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "[")
  173.         AnsiPos 28, 1
  174.         Print "@X0F/"
  175.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "]")
  176.         AnsiPos 28, 1
  177.         Print "@X0E-"
  178.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "~")
  179.         AnsiPos 28, 1
  180.         Print "@X0F\"
  181.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "!")
  182.         AnsiPos 28, 1
  183.         Print "@X0E|"
  184.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "@")
  185.         AnsiPos 28, 1
  186.         Print "@X0F/"
  187.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "#")
  188.         AnsiPos 28, 1
  189.         Print "@X0E-"
  190.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "$")
  191.         AnsiPos 28, 1
  192.         Print "@X0F\"
  193.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "%")
  194.         AnsiPos 28, 1
  195.         Print "@X0E|"
  196.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "^")
  197.         AnsiPos 28, 1
  198.         Print "@X0F/"
  199.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "&")
  200.         AnsiPos 28, 1
  201.         Print "@X0E-"
  202.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ":")
  203.         AnsiPos 28, 1
  204.         Print "@X0F\"
  205.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ";")
  206.         AnsiPos 28, 1
  207.         Print "@X0E|"
  208.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  209.         AnsiPos 28, 1
  210.         Print "@X0F/"
  211.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ".")
  212.         AnsiPos 28, 1
  213.         Print "@X0E-"
  214.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ",")
  215.         AnsiPos 28, 1
  216.         Print "@X0F\"
  217.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "?")
  218.         AnsiPos 28, 1
  219.         Print "@X0E|"
  220.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "/")
  221.         AnsiPos 28, 1
  222.         Print "@X0F/"
  223.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "|")
  224.         AnsiPos 28, 1
  225.         Print "@X0E-"
  226.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "\")
  227.         AnsiPos 28, 1
  228.         Print "@X0F\"
  229.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "+")
  230.         AnsiPos 28, 1
  231.         Print "@X0E|"
  232.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "=")
  233.         AnsiPos 28, 1
  234.         Print "@X0F/"
  235.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "-")
  236.         AnsiPos 28, 1
  237.         Print "@X0E-"
  238.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), ".")
  239.         AnsiPos 28, 1
  240.         Print "@X0F\"
  241.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "«")
  242.         AnsiPos 28, 1
  243.         Print "@X0E|"
  244.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "»")
  245.         AnsiPos 28, 1
  246.         Print "@X0F/"
  247.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ü")
  248.         AnsiPos 28, 1
  249.         Print "@X0E-"
  250.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┤")
  251.         AnsiPos 28, 1
  252.         Print "@X0F\"
  253.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "│")
  254.         AnsiPos 28, 1
  255.         Print "@X0E|"
  256.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╡")
  257.         AnsiPos 28, 1
  258.         Print "@X0F/"
  259.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  260.         AnsiPos 28, 1
  261.         Print "@X0E-"
  262.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  263.         AnsiPos 28, 1
  264.         Print "@X0F\"
  265.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  266.         AnsiPos 28, 1
  267.         Print "@X0E|"
  268.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  269.         AnsiPos 28, 1
  270.         Print "@X0F/"
  271.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  272.         AnsiPos 28, 1
  273.         Print "@X0E-"
  274.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  275.         AnsiPos 28, 1
  276.         Print "@X0F\"
  277.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  278.         AnsiPos 28, 1
  279.         Print "@X0E|"
  280.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  281.         AnsiPos 28, 1
  282.         Print "@X0F/"
  283.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  284.         AnsiPos 28, 1
  285.         Print "@X0E-"
  286.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  287.         AnsiPos 28, 1
  288.         Print "@X0F\"
  289.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  290.         AnsiPos 28, 1
  291.         Print "@X0E|"
  292.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  293.         AnsiPos 28, 1
  294.         Print "@X0F/"
  295.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  296.         AnsiPos 28, 1
  297.         Print "@X0E-"
  298.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  299.         AnsiPos 28, 1
  300.         Print "@X0F\"
  301.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  302.         AnsiPos 28, 1
  303.         Print "@X0E|"
  304.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  305.         AnsiPos 28, 1
  306.         Print "@X0F/"
  307.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), " ")
  308.         AnsiPos 28, 1
  309.         Print "@X0E-"
  310.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  311.         AnsiPos 28, 1
  312.         Print "@X0F\"
  313.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "")
  314.         AnsiPos 28, 1
  315.         Print "@X0E|"
  316.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ç")
  317.         AnsiPos 28, 1
  318.         Print "@X0F/"
  319.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "É")
  320.         AnsiPos 28, 1
  321.         Print "@X0E-"
  322.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "á")
  323.         AnsiPos 28, 1
  324.         Print "@X0F\"
  325.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "░")
  326.         AnsiPos 28, 1
  327.         Print "@X0E|"
  328.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ü")
  329.         AnsiPos 28, 1
  330.         Print "@X0F/"
  331.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "æ")
  332.         AnsiPos 28, 1
  333.         Print "@X0E-"
  334.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "í")
  335.         AnsiPos 28, 1
  336.         Print "@X0F\"
  337.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "▒")
  338.         AnsiPos 28, 1
  339.         Print "@X0E|"
  340.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "é")
  341.         AnsiPos 28, 1
  342.         Print "@X0F/"
  343.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Æ")
  344.         AnsiPos 28, 1
  345.         Print "@X0E-"
  346.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ó")
  347.         AnsiPos 28, 1
  348.         Print "@X0F\"
  349.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "▓")
  350.         AnsiPos 28, 1
  351.         Print "@X0E|"
  352.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "â")
  353.         AnsiPos 28, 1
  354.         Print "@X0F/"
  355.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ô")
  356.         AnsiPos 28, 1
  357.         Print "@X0E-"
  358.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ú")
  359.         AnsiPos 28, 1
  360.         Print "@X0F\"
  361.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "│")
  362.         AnsiPos 28, 1
  363.         Print "@X0E|"
  364.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ä")
  365.         AnsiPos 28, 1
  366.         Print "@X0F/"
  367.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ö")
  368.         AnsiPos 28, 1
  369.         Print "@X0E-"
  370.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ñ")
  371.         AnsiPos 28, 1
  372.         Print "@X0F\"
  373.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┤")
  374.         AnsiPos 28, 1
  375.         Print "@X0E|"
  376.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "à")
  377.         AnsiPos 28, 1
  378.         Print "@X0F/"
  379.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ò")
  380.         AnsiPos 28, 1
  381.         Print "@X0E-"
  382.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ñ")
  383.         AnsiPos 28, 1
  384.         Print "@X0F\"
  385.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╡")
  386.         AnsiPos 28, 1
  387.         Print "@X0E|"
  388.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "å")
  389.         AnsiPos 28, 1
  390.         Print "@X0F/"
  391.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "û")
  392.         AnsiPos 28, 1
  393.         Print "@X0E-"
  394.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ª")
  395.         AnsiPos 28, 1
  396.         Print "@X0F\"
  397.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╢")
  398.         AnsiPos 28, 1
  399.         Print "@X0E|"
  400.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ç")
  401.         AnsiPos 28, 1
  402.         Print "@X0F/"
  403.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ù")
  404.         AnsiPos 28, 1
  405.         Print "@X0E-"
  406.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "º")
  407.         AnsiPos 28, 1
  408.         Print "@X0F\"
  409.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╖")
  410.         AnsiPos 28, 1
  411.         Print "@X0E|"
  412.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ê")
  413.         AnsiPos 28, 1
  414.         Print "@X0F/"
  415.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ÿ")
  416.         AnsiPos 28, 1
  417.         Print "@X0E-"
  418.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "¿")
  419.         AnsiPos 28, 1
  420.         Print "@X0F\"
  421.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╕")
  422.         AnsiPos 28, 1
  423.         Print "@X0E|"
  424.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ë")
  425.         AnsiPos 28, 1
  426.         Print "@X0F/"
  427.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ö")
  428.         AnsiPos 28, 1
  429.         Print "@X0E-"
  430.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "⌐")
  431.         AnsiPos 28, 1
  432.         Print "@X0F\"
  433.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╣")
  434.         AnsiPos 28, 1
  435.         Print "@X0E|"
  436.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "è")
  437.         AnsiPos 28, 1
  438.         Print "@X0F/"
  439.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ü")
  440.         AnsiPos 28, 1
  441.         Print "@X0E-"
  442.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "¬")
  443.         AnsiPos 28, 1
  444.         Print "@X0F\"
  445.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "║")
  446.         AnsiPos 28, 1
  447.         Print "@X0E|"
  448.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ï")
  449.         AnsiPos 28, 1
  450.         Print "@X0F/"
  451.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "¢")
  452.         AnsiPos 28, 1
  453.         Print "@X0E-"
  454.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "½")
  455.         AnsiPos 28, 1
  456.         Print "@X0F\"
  457.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╗")
  458.         AnsiPos 28, 1
  459.         Print "@X0E|"
  460.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "î")
  461.         AnsiPos 28, 1
  462.         Print "@X0F/"
  463.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "£")
  464.         AnsiPos 28, 1
  465.         Print "@X0E-"
  466.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "¼")
  467.         AnsiPos 28, 1
  468.         Print "@X0F\"
  469.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╝")
  470.         AnsiPos 28, 1
  471.         Print "@X0E|"
  472.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ì")
  473.         AnsiPos 28, 1
  474.         Print "@X0F/"
  475.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "¥")
  476.         AnsiPos 28, 1
  477.         Print "@X0E-"
  478.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "¡")
  479.         AnsiPos 28, 1
  480.         Print "@X0F\"
  481.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╜")
  482.         AnsiPos 28, 1
  483.         Print "@X0E|"
  484.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ä")
  485.         AnsiPos 28, 1
  486.         Print "@X0F/"
  487.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "₧")
  488.         AnsiPos 28, 1
  489.         Print "@X0E-"
  490.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "«")
  491.         AnsiPos 28, 1
  492.         Print "@X0F\"
  493.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╛")
  494.         AnsiPos 28, 1
  495.         Print "@X0E|"
  496.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Å")
  497.         AnsiPos 28, 1
  498.         Print "@X0F/"
  499.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ƒ")
  500.         AnsiPos 28, 1
  501.         Print "@X0E-"
  502.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "»")
  503.         AnsiPos 28, 1
  504.         Print "@X0F\"
  505.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┐")
  506.         AnsiPos 28, 1
  507.         Print "@X0E|"
  508.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), " ")
  509.         AnsiPos 28, 1
  510.         Print "@X0F/"
  511.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "└")
  512.         AnsiPos 28, 1
  513.         Print "@X0E-"
  514.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╨")
  515.         AnsiPos 28, 1
  516.         Print "@X0F\"
  517.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "α")
  518.         AnsiPos 28, 1
  519.         Print "@X0E|"
  520.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "≡")
  521.         AnsiPos 28, 1
  522.         Print "@X0F/"
  523.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┴")
  524.         AnsiPos 28, 1
  525.         Print "@X0E-"
  526.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╤")
  527.         AnsiPos 28, 1
  528.         Print "@X0F\"
  529.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ß")
  530.         AnsiPos 28, 1
  531.         Print "@X0E|"
  532.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "±")
  533.         AnsiPos 28, 1
  534.         Print "@X0F/"
  535.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┬")
  536.         AnsiPos 28, 1
  537.         Print "@X0E-"
  538.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╥")
  539.         AnsiPos 28, 1
  540.         Print "@X0F\"
  541.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Γ")
  542.         AnsiPos 28, 1
  543.         Print "@X0E|"
  544.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "≥")
  545.         AnsiPos 28, 1
  546.         Print "@X0F/"
  547.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "├")
  548.         AnsiPos 28, 1
  549.         Print "@X0E-"
  550.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╙")
  551.         AnsiPos 28, 1
  552.         Print "@X0F\"
  553.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "π")
  554.         AnsiPos 28, 1
  555.         Print "@X0E|"
  556.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "≤")
  557.         AnsiPos 28, 1
  558.         Print "@X0F/"
  559.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "─")
  560.         AnsiPos 28, 1
  561.         Print "@X0E-"
  562.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╘")
  563.         AnsiPos 28, 1
  564.         Print "@X0F\"
  565.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Σ")
  566.         AnsiPos 28, 1
  567.         Print "@X0E|"
  568.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "⌠")
  569.         AnsiPos 28, 1
  570.         Print "@X0F/"
  571.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┼")
  572.         AnsiPos 28, 1
  573.         Print "@X0E-"
  574.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╒")
  575.         AnsiPos 28, 1
  576.         Print "@X0F\"
  577.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "σ")
  578.         AnsiPos 28, 1
  579.         Print "@X0E|"
  580.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "⌡")
  581.         AnsiPos 28, 1
  582.         Print "@X0F/"
  583.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╞")
  584.         AnsiPos 28, 1
  585.         Print "@X0E-"
  586.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╓")
  587.         AnsiPos 28, 1
  588.         Print "@X0F\"
  589.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "µ")
  590.         AnsiPos 28, 1
  591.         Print "@X0E|"
  592.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "÷")
  593.         AnsiPos 28, 1
  594.         Print "@X0F/"
  595.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╟")
  596.         AnsiPos 28, 1
  597.         Print "@X0E-"
  598.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╫")
  599.         AnsiPos 28, 1
  600.         Print "@X0F\"
  601.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "τ")
  602.         AnsiPos 28, 1
  603.         Print "@X0E|"
  604.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "≈")
  605.         AnsiPos 28, 1
  606.         Print "@X0F/"
  607.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╚")
  608.         AnsiPos 28, 1
  609.         Print "@X0E-"
  610.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╪")
  611.         AnsiPos 28, 1
  612.         Print "@X0F\"
  613.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Φ")
  614.         AnsiPos 28, 1
  615.         Print "@X0E|"
  616.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "°")
  617.         AnsiPos 28, 1
  618.         Print "@X0F/"
  619.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╔")
  620.         AnsiPos 28, 1
  621.         Print "@X0E-"
  622.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┘")
  623.         AnsiPos 28, 1
  624.         Print "@X0F\"
  625.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Θ")
  626.         AnsiPos 28, 1
  627.         Print "@X0E|"
  628.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "∙")
  629.         AnsiPos 28, 1
  630.         Print "@X0F/"
  631.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╩")
  632.         AnsiPos 28, 1
  633.         Print "@X0E-"
  634.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "┌")
  635.         AnsiPos 28, 1
  636.         Print "@X0F\"
  637.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Ω")
  638.         AnsiPos 28, 1
  639.         Print "@X0E|"
  640.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "·")
  641.         AnsiPos 28, 1
  642.         Print "@X0F/"
  643.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╦")
  644.         AnsiPos 28, 1
  645.         Print "@X0E-"
  646.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "█")
  647.         AnsiPos 28, 1
  648.         Print "@X0F\"
  649.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "δ")
  650.         AnsiPos 28, 1
  651.         Print "@X0E|"
  652.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "√")
  653.         AnsiPos 28, 1
  654.         Print "@X0F/"
  655.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╠")
  656.         AnsiPos 28, 1
  657.         Print "@X0E-"
  658.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "▄")
  659.         AnsiPos 28, 1
  660.         Print "@X0F\"
  661.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "∞")
  662.         AnsiPos 28, 1
  663.         Print "@X0E|"
  664.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ⁿ")
  665.         AnsiPos 28, 1
  666.         Print "@X0F/"
  667.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "═")
  668.         AnsiPos 28, 1
  669.         Print "@X0E-"
  670.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "▌")
  671.         AnsiPos 28, 1
  672.         Print "@X0F\"
  673.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "φ")
  674.         AnsiPos 28, 1
  675.         Print "@X0E|"
  676.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "²")
  677.         AnsiPos 28, 1
  678.         Print "@X0F/"
  679.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╬")
  680.         AnsiPos 28, 1
  681.         Print "@X0E-"
  682.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "▐")
  683.         AnsiPos 28, 1
  684.         Print "@X0F\"
  685.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "ε")
  686.         AnsiPos 28, 1
  687.         Print "@X0E|"
  688.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "■")
  689.         AnsiPos 28, 1
  690.         Print "@X0F/"
  691.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "╧")
  692.         AnsiPos 28, 1
  693.         Print "@X0E-"
  694.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "▀")
  695.         AnsiPos 28, 1
  696.         Print "@X0F\"
  697.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "U")
  698.         AnsiPos 28, 1
  699.         Print "@X0E|"
  700.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "V")
  701.         AnsiPos 28, 1
  702.         Print "@X0F/"
  703.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "W")
  704.         AnsiPos 28, 1
  705.         Print "@X0E-"
  706.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "X")
  707.         AnsiPos 28, 1
  708.         Print "@X0F\"
  709.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Y")
  710.         AnsiPos 28, 1
  711.         Print "@X0E|"
  712.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), "Z")
  713.         AnsiPos 28, 1
  714.         Print "@X0F/"
  715.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(44))
  716.         AnsiPos 28, 1
  717.         Print "@X0E-"
  718.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(0))
  719.         AnsiPos 28, 1
  720.         Print "@X0F\"
  721.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(7))
  722.         AnsiPos 28, 1
  723.         Print "@X0E|"
  724.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(8))
  725.         AnsiPos 28, 1
  726.         Print "@X0F/"
  727.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(10))
  728.         AnsiPos 28, 1
  729.         Print "@X0E-"
  730.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(117))
  731.         AnsiPos 28, 1
  732.         Print "@X0F\"
  733.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(118))
  734.         AnsiPos 28, 1
  735.         Print "@X0E|"
  736.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(119))
  737.         AnsiPos 28, 1
  738.         Print "@X0F/"
  739.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(120))
  740.         AnsiPos 28, 1
  741.         Print "@X0E-"
  742.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(121))
  743.         AnsiPos 28, 1
  744.         Print "@X0F\"
  745.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(122))
  746.         AnsiPos 28, 1
  747.         Print "@X0E|"
  748.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(86))
  749.         AnsiPos 28, 1
  750.         Print "@X0F/"
  751.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(87))
  752.         AnsiPos 28, 1
  753.         Print "@X0E-"
  754.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(88))
  755.         AnsiPos 28, 1
  756.         Print "@X0F\"
  757.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(89))
  758.         AnsiPos 28, 1
  759.         Print "@X0E|"
  760.         TSTRING049(STRING064) = Strip(TSTRING049(STRING064), Chr(90))
  761.         AnsiPos 28, 1
  762.         Print "@X0F/"
  763.     Next
  764.     INTEGER005 = Len(TSTRING049(0))
  765.     If (INTEGER005 < 2) TSTRING049(0) = "uv"
  766.     TSTRING049(0) = Right(TSTRING049(0), 2)
  767.     INTEGER006 = Len(TSTRING049(1))
  768.     If (INTEGER006 < 2) TSTRING049(1) = "uv"
  769.     TSTRING049(1) = Right(TSTRING049(1), 2)
  770.     STRING050 = TSTRING049(0) + TSTRING049(1) + Chr(80) + Chr(79)
  771.     FDefIn 1
  772.     GetUser
  773.     FClose 1
  774.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  775.     FDGet STRING044
  776.     FDGet STRING042
  777.     FDGet STRING036
  778.     FDGet STRING037
  779.     FDGet STRING038
  780.     FDGet STRING051
  781.     FDGet STRING052
  782.     FDGet STRING056
  783.     FDGet STRING055
  784.     FDGet STRING053
  785.     FDGet STRING054
  786.     FDGet STRING057
  787.     FDGet STRING058
  788.     FDGet STRING059
  789.     FDGet STRING061
  790.     FDGet STRING062
  791.     FDGet STRING063
  792.     FDGet STRING019
  793.     FClose 1
  794.     If (STRING044 == S2I(STRING050, 34)) Goto LABEL001
  795.     If (Date() >= DATE001) Then
  796.         PrintLn "@X8FThis PPE has Expired!!!"
  797.         Wait
  798.     Else
  799.         :LABEL001
  800.         If (STRING042 > CurSec()) Goto LABEL047
  801.         If (Exist(PPEPath() + "apps\waiting.app")) Then
  802.             If (STRING008 <> Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING060 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
  803.                 Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  804.                 Goto LABEL044
  805.             Endif
  806.             STRING039 = STRING056
  807.             STRING039 = Upper(STRING039)
  808.             Cls
  809.             FClose 1
  810.             FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  811.             INTEGER003 = 0
  812.             :LABEL002
  813.             If (Ferr(1)) Goto LABEL003
  814.             FGet 1, STRING006
  815.             If (STRING006 == "") Goto LABEL004
  816.             Inc INTEGER003
  817.             Goto LABEL002
  818.             :LABEL003
  819.             FClose 1
  820.             :LABEL004
  821.             FClose 1
  822.             If (BOOLEAN002 == 1) Goto LABEL005
  823.             If ((INTEGER003 == 0) && (STRING044 == S2I(STRING050, 34))) Then
  824.                 Goto LABEL044
  825.             Endif
  826.             If (((STRING061 == YesChar()) && (STRING044 == S2I(STRING050, 34))) && (CurSec() <= STRING063)) Goto LABEL005
  827.             AnsiPos 12, 3
  828.             PrintLn STRING008
  829.             If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".PCB", 4 + 2
  830.             Newline
  831.             InputYN STRING059, STRING039, " "
  832.             If (STRING039 == NoChar()) Goto LABEL045
  833.             :LABEL005
  834.             DefColor
  835.             STRING001 = 7
  836.             FClose 2
  837.             FClose 1
  838.             FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  839.             INTEGER003 = 0
  840.             INTEGER007 = 0
  841.             :LABEL006
  842.             If (Ferr(1)) Goto LABEL011
  843.             STRING009 = NoChar()
  844.             FDGet STRING006
  845.             If (STRING006 == "") Goto LABEL010
  846.             Tokenize STRING006
  847.             If (TokCount() == 3) Then
  848.                 GetToken STRING033
  849.                 GetToken STRING034
  850.                 GetToken STRING040
  851.                 STRING033 = Left(STRING033, 3)
  852.                 STRING034 = Right(STRING040, 4)
  853.                 STRING033 = Strip(STRING033, " ")
  854.                 STRING033 = Strip(STRING033, ".")
  855.                 STRING034 = Strip(STRING034, " ")
  856.                 STRING034 = Strip(STRING034, ".")
  857.                 Goto LABEL007
  858.             Endif
  859.             If (TokCount() == 2) Then
  860.                 GetToken STRING033
  861.                 GetToken STRING034
  862.                 STRING033 = Left(STRING033, 3)
  863.                 STRING034 = Right(STRING034, 4)
  864.                 STRING033 = Strip(STRING033, " ")
  865.                 STRING033 = Strip(STRING033, ".")
  866.                 STRING034 = Strip(STRING034, " ")
  867.                 STRING034 = Strip(STRING034, ".")
  868.                 Goto LABEL007
  869.             Endif
  870.             If (TokCount() == 1) Then
  871.                 GetToken STRING033
  872.                 GetToken STRING034
  873.                 STRING033 = Strip(STRING033, ".")
  874.                 STRING033 = Strip(STRING033, " ")
  875.                 STRING034 = Strip(STRING034, ".")
  876.                 STRING034 = Strip(STRING034, " ")
  877.                 STRING033 = Left(STRING033, 3)
  878.                 Goto LABEL007
  879.             Endif
  880.             :LABEL007
  881.             If (STRING044 == S2I(STRING050, 34)) Goto LABEL008
  882.             If (Date() >= DATE001) Then
  883.                 PrintLn "@X8FThis PPE has Expired!!!"
  884.                 Goto LABEL044
  885.             Endif
  886.             :LABEL008
  887.             STRING043 = ReadLine(PPEPath() + "apps\" + STRING033 + "_" + STRING034 + ".GRP", 1)
  888.             If (Exist(PPEPath() + "apps\" + STRING033 + "_" + STRING034 + ".vot")) Goto LABEL009
  889.             FCreate 3, PPEPath() + "apps\" + STRING033 + "_" + STRING034 + ".vot", 1, 0
  890.             FClose 3
  891.             :LABEL009
  892.             Gosub LABEL016
  893.             If (!Exist(PPEPath() + "apps\" + STRING033 + "_" + STRING034 + ".1") && (BOOLEAN002 == 0)) STRING009 = YesChar()
  894.             If (STRING006 == U_Name()) STRING009 = YesChar()
  895.             If ((STRING009 == NoChar()) && (BOOLEAN002 == 0)) Then
  896.                 If (INTEGER003 <= 12) Inc STRING001
  897.                 Inc INTEGER003
  898.                 If (INTEGER003 == 1) Gosub LABEL012
  899.                 If (BOOLEAN002 == 0) Then
  900.                     If (INTEGER003 > 13) Gosub LABEL020
  901.                     Gosub LABEL015
  902.                     FClose 2
  903.                 Endif
  904.                 If (INTEGER003 > 13) INTEGER003 = 13
  905.             Endif
  906.             If ((BOOLEAN002 == 1) && (STRING026 == YesChar())) Then
  907.                 If (INTEGER007 <= 12) Inc STRING001
  908.                 Inc INTEGER007
  909.                 If ((INTEGER007 == 1) && (BOOLEAN002 == 1)) Gosub LABEL012
  910.                 If (BOOLEAN002 == 1) Then
  911.                     If (INTEGER007 > 13) Gosub LABEL020
  912.                     Gosub LABEL015
  913.                 Endif
  914.                 If (INTEGER007 > 13) INTEGER007 = 13
  915.                 INTEGER003 = INTEGER007
  916.             Endif
  917.             :LABEL010
  918.             Goto LABEL006
  919.             :LABEL011
  920.             Goto LABEL021
  921.             :LABEL012
  922.             If (STRING044 == S2I(STRING050, 34)) Goto LABEL013
  923.             If (Date() >= DATE001) Then
  924.                 PrintLn "@X8FThis PPE has Expired!!!"
  925.                 Goto LABEL044
  926.             Endif
  927.             :LABEL013
  928.             StartDisp 1
  929.             Cls
  930.             AnsiPos 6, 1
  931.             PrintLn "@POS:18@" + STRING008
  932.             AnsiPos 9, 2
  933.             PrintLn STRING057
  934.             AnsiPos 35, 3
  935.             PrintLn STRING058
  936.             If (BOOLEAN002 == 1) Then
  937.                 AnsiPos 6, 4
  938.                 PrintLn "@POS:13@" + STRING054 + "▄▄▄▄▄" + STRING055 + "Change" + STRING054 + "▄" + STRING055 + "Vote" + STRING054 + "▄" + STRING055 + "Mode" + STRING054 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  939.                 Goto LABEL014
  940.             Endif
  941.             AnsiPos 6, 4
  942.             PrintLn "@POS:13@" + STRING054 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  943.             :LABEL014
  944.             AnsiPos 6, 5
  945.             PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + "  UserName/Handle               Location/Group             " + STRING054 + "█"
  946.             AnsiPos 6, 6
  947.             PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + "─────────────────────────────┬─────────────────────────────" + STRING054 + "█"
  948.             If (BOOLEAN002 == 1) Then
  949.                 AnsiPos 6, 7
  950.                 PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + "                       " + STRING055 + " Voted" + STRING053 + "│                             " + STRING054 + "█"
  951.                 Goto LABEL015
  952.             Endif
  953.             AnsiPos 6, 7
  954.             PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + "                             │                             " + STRING054 + "█"
  955.             Return
  956.             :LABEL015
  957.             If (BOOLEAN002 == 1) Then
  958.                 AnsiPos 6, STRING001
  959.                 PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + " " + STRING006 + "@POS:40@" + STRING031 + "@POS:43@│    " + STRING043 + "@POS:73@" + STRING054 + "█"
  960.                 Goto LABEL016
  961.             Endif
  962.             AnsiPos 6, STRING001
  963.             PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + " " + STRING006 + "@POS:43@│    " + STRING043 + "@POS:73@" + STRING054 + "█"
  964.             Return
  965.             :LABEL016
  966.             STRING009 = NoChar()
  967.             STRING026 = NoChar()
  968.             STRING023 = 0
  969.             STRING024 = 0
  970.             STRING021 = ReadLine(PPEPath() + "check.cnf", 2)
  971.             STRING022 = ReadLine(PPEPath() + "check.cnf", 3)
  972.             FClose 2
  973.             FOpen 2, PPEPath() + "apps\" + STRING033 + "_" + STRING034 + ".vot", 0, 0
  974.             :LABEL017
  975.             If (Ferr(2)) Goto LABEL018
  976.             FGet 2, STRING027
  977.             If (STRING027 == "") Goto LABEL019
  978.             Tokenize STRING027
  979.             If (TokCount() == 4) Then
  980.                 GetToken STRING028
  981.                 GetToken STRING029
  982.                 GetToken STRING030
  983.                 GetToken STRING031
  984.                 If (STRING031 == "Y") Inc STRING023
  985.                 If (STRING031 == "N") Inc STRING024
  986.                 If ((((U_Name() == STRING028 + " " + STRING029 + " " + STRING030) && (BOOLEAN002 == 0)) || (STRING023 >= STRING021)) || ((STRING024 >= STRING022) && (BOOLEAN002 == 0))) Then
  987.                     STRING009 = YesChar()
  988.                     FClose 2
  989.                     Return
  990.                 Endif
  991.                 If (((U_Name() == STRING028 + " " + STRING029 + " " + STRING030) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "hg")) Then
  992.                     STRING026 = YesChar()
  993.                     FClose 2
  994.                     Return
  995.                 Endif
  996.             Endif
  997.             If (TokCount() == 3) Then
  998.                 GetToken STRING028
  999.                 GetToken STRING029
  1000.                 GetToken STRING031
  1001.                 If (STRING031 == "Y") Inc STRING023
  1002.                 If (STRING031 == "N") Inc STRING024
  1003.                 If ((((U_Name() == STRING028 + " " + STRING029) && (BOOLEAN002 == 0)) || (STRING023 >= STRING021)) || ((STRING024 >= STRING022) && (BOOLEAN002 == 0))) Then
  1004.                     STRING009 = YesChar()
  1005.                     FClose 2
  1006.                     Return
  1007.                 Endif
  1008.                 If (((U_Name() == STRING028 + " " + STRING029) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "hg")) Then
  1009.                     STRING026 = YesChar()
  1010.                     Return
  1011.                 Endif
  1012.             Endif
  1013.             If (TokCount() == 2) Then
  1014.                 GetToken STRING028
  1015.                 GetToken STRING031
  1016.                 If (STRING031 == "Y") Inc STRING023
  1017.                 If (STRING031 == "N") Inc STRING024
  1018.                 If ((((U_Name() == STRING028) && (BOOLEAN002 == 0)) || (STRING023 >= STRING021)) || ((STRING024 >= STRING022) && (BOOLEAN002 == 0))) Then
  1019.                     STRING009 = YesChar()
  1020.                     FClose 2
  1021.                     Return
  1022.                 Endif
  1023.                 If (((U_Name() == STRING028) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "hg")) Then
  1024.                     STRING026 = YesChar()
  1025.                     FClose 2
  1026.                     Return
  1027.                 Endif
  1028.             Endif
  1029.             Goto LABEL017
  1030.             :LABEL018
  1031.             STRING009 = ""
  1032.             Return
  1033.             :LABEL019
  1034.             Return
  1035.             :LABEL020
  1036.             INTEGER009 = 9
  1037.             For INTEGER008 = 0 To 11
  1038.                 STRING041 = ScrText(13, INTEGER009, 73, 1)
  1039.                 AnsiPos 13, INTEGER009 - 1
  1040.                 If (INTEGER009 < 21) Print STRING041
  1041.                 Inc INTEGER009
  1042.             Next
  1043.             Return
  1044.             :LABEL021
  1045.             If (((INTEGER007 == 0) && (INTEGER003 == 0)) && (STRING044 == S2I(STRING050, 34))) Then
  1046.                 Goto LABEL044
  1047.             Endif
  1048.             If (((INTEGER007 == 0) && (INTEGER003 == 0)) && (STRING044 <> S2I(STRING050, 34))) Then
  1049.                 Gosub LABEL012
  1050.             Endif
  1051.             Inc STRING001
  1052.             AnsiPos 6, STRING001
  1053.             PrintLn "@POS:13@" + STRING054 + "█" + STRING053 + " Quit New User Voting.       │                             " + STRING054 + "█"
  1054.             Inc STRING001
  1055.             AnsiPos 6, STRING001
  1056.             PrintLn "@POS:13@" + STRING054 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  1057.             FClose 1
  1058.             If (STRING044 == S2I(STRING050, 34)) Goto LABEL022
  1059.             If (Date() >= DATE001) Then
  1060.                 PrintLn "@X8FThis PPE has Expired!!!"
  1061.                 Goto LABEL044
  1062.             Endif
  1063.             :LABEL022
  1064.             Inc STRING001
  1065.             AnsiPos 6, STRING001
  1066.             STRING041 = ""
  1067.             STRING035 = GetY()
  1068.             STRING001 = STRING035 - 2
  1069.             KbdStuff Chr(32)
  1070.             :LABEL023
  1071.             If (BOOLEAN001) Goto LABEL026
  1072.             STRING010 = Inkey()
  1073.             If (STRING010 == Chr(13)) Then
  1074.                 STRING002 = RTrim(ScrText(15, STRING001 + 1, 25, 0), " ")
  1075.                 If (STRING002 <> "Quit New User Voting.") Then
  1076.                     STRING013 = STRING002
  1077.                     Goto LABEL027
  1078.                 Endif
  1079.                 If (((((STRING002 == "Quit New User Voting.") && (STRING061 <> NoChar())) && (STRING044 == S2I(STRING050, 34))) && (CurSec() < STRING063)) && (BOOLEAN002 == 0)) Then
  1080.                     DefColor
  1081.                     Cls
  1082.                     AnsiPos 10, 3
  1083.                     PrintLn STRING062
  1084.                     Newline
  1085.                     Wait
  1086.                     Goto LABEL005
  1087.                     Goto LABEL024
  1088.                 Endif
  1089.                 Goto LABEL044
  1090.                 :LABEL024
  1091.                 If (STRING002 == "Quit New User Voting.") Then
  1092.                     Goto LABEL044
  1093.                 Endif
  1094.             Endif
  1095.             If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "A")) || (STRING010 == "a")) || (STRING010 == "Z")) || (STRING010 == "z")) Then
  1096.                 AnsiPos 15, STRING001
  1097.                 If (STRING003 == STRING035 - 2) Then
  1098.                     Print STRING041
  1099.                     AnsiPos 15, STRING001
  1100.                     Goto LABEL025
  1101.                 Endif
  1102.                 AnsiPos 15, STRING001 + 1
  1103.                 Print STRING041
  1104.                 :LABEL025
  1105.                 If (STRING001 == 7) STRING001 = STRING001 + INTEGER003 + 1
  1106.                 AnsiPos 15, STRING001
  1107.                 STRING041 = ScrText(15, STRING001, 25, 1)
  1108.                 Print STRING055 + RTrim(ScrText(15, STRING001, 25, 0), " ")
  1109.                 Dec STRING001
  1110.             Endif
  1111.             Goto LABEL023
  1112.             :LABEL026
  1113.             :LABEL027
  1114.             STRING012 = 1
  1115.             STRING011 = 6
  1116.             Inc STRING001
  1117.             Tokenize STRING013
  1118.             If (TokCount() == 3) Then
  1119.                 GetToken STRING003
  1120.                 GetToken STRING004
  1121.                 GetToken STRING005
  1122.                 STRING003 = Strip(STRING003, " ")
  1123.                 STRING004 = Strip(STRING004, " ")
  1124.                 STRING003 = Strip(STRING003, ".")
  1125.                 STRING004 = Strip(STRING004, ".")
  1126.                 STRING003 = Left(STRING003, 3)
  1127.                 STRING004 = Right(STRING005, 4)
  1128.                 STRING003 = Strip(STRING003, " ")
  1129.                 STRING004 = Strip(STRING004, " ")
  1130.             Endif
  1131.             If (TokCount() == 2) Then
  1132.                 GetToken STRING003
  1133.                 GetToken STRING004
  1134.                 STRING003 = Strip(STRING003, " ")
  1135.                 STRING004 = Strip(STRING004, " ")
  1136.                 STRING003 = Strip(STRING003, ".")
  1137.                 STRING004 = Strip(STRING004, ".")
  1138.                 STRING003 = Left(STRING003, 3)
  1139.                 STRING004 = Right(STRING004, 4)
  1140.                 STRING003 = Strip(STRING003, " ")
  1141.                 STRING004 = Strip(STRING004, " ")
  1142.             Endif
  1143.             If (TokCount() == 1) Then
  1144.                 GetToken STRING003
  1145.                 GetToken STRING004
  1146.                 STRING003 = Strip(STRING003, " ")
  1147.                 STRING004 = Strip(STRING004, " ")
  1148.                 STRING003 = Strip(STRING003, ".")
  1149.                 STRING004 = Strip(STRING004, ".")
  1150.                 STRING003 = Left(STRING003, 3)
  1151.                 STRING004 = Right(STRING004, 4)
  1152.                 STRING003 = Strip(STRING003, " ")
  1153.                 STRING004 = Strip(STRING004, " ")
  1154.             Endif
  1155.             FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  1156.             FGet 1, STRING045
  1157.             INTEGER004 = STRING045
  1158.             FClose 1
  1159.             STRING047 = 0
  1160.             DefColor
  1161.             Cls
  1162.             AnsiPos 2, 3
  1163.             PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  1164.             AnsiPos 24, 4
  1165.             PrintLn STRING054 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  1166.             AnsiPos 24, 5
  1167.             PrintLn STRING054 + "█" + STRING053 + "                         " + STRING054 + "█@X07"
  1168.             For STRING048 = 1 To STRING045
  1169.                 If ((STRING051 == STRING048) && (U_Sec < STRING052)) Then
  1170.                     Goto LABEL028
  1171.                     Goto LABEL028
  1172.                 Endif
  1173.                 If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING048)) Then
  1174.                     AnsiPos 24, STRING011
  1175.                     PrintLn STRING054 + "█" + STRING053 + "  View Users InfoForm " + STRING012 + "  " + STRING054 + "█@X07"
  1176.                     Inc STRING011
  1177.                     Inc STRING047
  1178.                 Endif
  1179.                 :LABEL028
  1180.                 Inc STRING012
  1181.             Next
  1182.             STRING045 = STRING047
  1183.             AnsiPos 24, STRING011
  1184.             PrintLn STRING054 + "█" + STRING053 + "  Quit Infoform Viewing  " + STRING054 + "█@X07"
  1185.             Inc STRING011
  1186.             AnsiPos 24, STRING011
  1187.             PrintLn STRING054 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  1188.             STRING035 = GetY()
  1189.             INTEGER002 = 6
  1190.             STRING041 = ""
  1191.             KbdStuff Chr(32)
  1192.             If (STRING047 == 1) KbdStuff Chr(13)
  1193.             :LABEL029
  1194.             If (BOOLEAN001) Goto LABEL031
  1195.             STRING010 = Inkey()
  1196.             If (STRING010 == Chr(13)) Then
  1197.                 STRING046 = Left(ScrText(27, INTEGER002 + 1, 21, 0), 1)
  1198.                 STRING046 = STRING046 + Right(ScrText(27, INTEGER002 + 1, 21, 0), 1)
  1199.                 STRING046 = Right(STRING046, 1)
  1200.                 Goto LABEL031
  1201.             Endif
  1202.             If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "z")) || (STRING010 == "Z")) || (STRING010 == "a")) || (STRING010 == "A")) Then
  1203.                 AnsiPos 27, STRING003
  1204.                 If (INTEGER002 == STRING035 - STRING047 + 1) Then
  1205.                     Print STRING041
  1206.                     Goto LABEL030
  1207.                 Endif
  1208.                 AnsiPos 27, INTEGER002 + 1
  1209.                 Print STRING041
  1210.                 :LABEL030
  1211.                 AnsiPos 27, INTEGER002
  1212.                 If (INTEGER002 == 5) INTEGER002 = INTEGER002 + STRING047 + 1
  1213.                 AnsiPos 27, INTEGER002
  1214.                 STRING041 = ScrText(27, INTEGER002, 21, 1) + "@X08"
  1215.                 AnsiPos 27, INTEGER002
  1216.                 Print STRING055 + ScrText(27, INTEGER002, 21, 0) + "@X08"
  1217.                 Dec INTEGER002
  1218.             Endif
  1219.             Goto LABEL029
  1220.             :LABEL031
  1221.             If (STRING046 == "g") Goto LABEL005
  1222.             Cls
  1223.             StartDisp 1
  1224.             DispFile PPEPath() + "tht-info." + STRING046, 0
  1225.             FOpen 1, PPEPath() + "apps\" + Strip(STRING003, " ") + "_" + Strip(STRING004, " ") + "." + STRING046, 0, 0
  1226.             FDGet STRING027
  1227.             FDGet STRING027
  1228.             FDGet STRING027
  1229.             FDGet STRING027
  1230.             FDGet STRING027
  1231.             FDGet STRING027
  1232.             FClose 2
  1233.             FOpen 2, PPEPath() + "infocfg." + STRING046, 0, 0
  1234.             FGet 2, STRING007
  1235.             FGet 2, STRING007
  1236.             :LABEL032
  1237.             If (Ferr(1)) Goto LABEL033
  1238.             FGet 2, STRING007
  1239.             Tokenize STRING007
  1240.             GetToken INTEGER001
  1241.             GetToken INTEGER002
  1242.             FDGet STRING032
  1243.             AnsiPos INTEGER001, INTEGER002
  1244.             PrintLn STRING032
  1245.             Goto LABEL032
  1246.             :LABEL033
  1247.             FClose 1
  1248.             FClose 2
  1249.             :LABEL034
  1250.             AnsiPos 6, 23
  1251.             InputStr "@X0EVoting is either ""Y""es or ""N""o or ""U""ndecided  _", STRING002, "", 1, "YNUQ", 4 + 2 + 8
  1252.             If (STRING002 == "") Then
  1253.                 Goto LABEL034
  1254.             Endif
  1255.             If (STRING002 == "Q") Stop
  1256.             If (STRING002 <> "U") Goto LABEL035
  1257.             If (STRING002 == "U") Then
  1258.                 Goto LABEL041
  1259.             Endif
  1260.             :LABEL035
  1261.             If (BOOLEAN002 == 1) Then
  1262.                 FClose 1
  1263.                 FClose 2
  1264.                 FCreate 4, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + String(PcbNode()) + "hg", 1, 0
  1265.                 FClose 4
  1266.                 FAppend 2, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1", 1, 0
  1267.                 FOpen 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1268.                 :LABEL036
  1269.                 If (Ferr(1)) Goto LABEL040
  1270.                 FGet 1, STRING018
  1271.                 Tokenize STRING018
  1272.                 If (TokCount() == 4) Then
  1273.                     GetToken STRING014
  1274.                     GetToken STRING015
  1275.                     GetToken STRING016
  1276.                     GetToken STRING017
  1277.                     If (U_Name() == STRING014 + " " + STRING015 + " " + STRING016) Then
  1278.                         Print ""
  1279.                         Goto LABEL037
  1280.                     Endif
  1281.                     FPutLn 2, STRING014 + " " + STRING015 + " " + STRING016 + " " + STRING017
  1282.                 Endif
  1283.                 :LABEL037
  1284.                 If (TokCount() == 3) Then
  1285.                     GetToken STRING014
  1286.                     GetToken STRING015
  1287.                     GetToken STRING017
  1288.                     If (U_Name() == STRING014 + " " + STRING015) Then
  1289.                         Print ""
  1290.                         Goto LABEL038
  1291.                     Endif
  1292.                     FPutLn 2, STRING014 + " " + STRING015 + " " + STRING017
  1293.                 Endif
  1294.                 :LABEL038
  1295.                 If (TokCount() == 2) Then
  1296.                     GetToken STRING014
  1297.                     GetToken STRING017
  1298.                     If (STRING014 == U_Name()) Then
  1299.                         Print ""
  1300.                         Goto LABEL039
  1301.                     Endif
  1302.                     FPutLn 2, STRING014 + " " + STRING017
  1303.                 Endif
  1304.                 :LABEL039
  1305.                 Goto LABEL036
  1306.                 :LABEL040
  1307.                 FClose 2
  1308.                 FClose 1
  1309.                 If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1")) Then
  1310.                     Copy PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1", PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot"
  1311.                     Delete PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1"
  1312.                 Endif
  1313.                 FClose 1
  1314.                 FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1315.                 FPutLn 1, U_Name() + " " + STRING002
  1316.                 FClose 1
  1317.                 Goto LABEL041
  1318.             Endif
  1319.             FClose 1
  1320.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1321.             FPutLn 1, U_Name() + " " + STRING002
  1322.             FClose 1
  1323.             :LABEL041
  1324.             Cls
  1325.             AnsiPos 6, 3
  1326.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt")) Goto LABEL042
  1327.             PrintLn STRING037
  1328.             FreshLine
  1329.             Wait
  1330.             Goto LABEL043
  1331.             :LABEL042
  1332.             AnsiPos 6, 4
  1333.             InputYN STRING036, STRING039, ""
  1334.             If (STRING039 == YesChar()) Then
  1335.                 FreshLine
  1336.                 DispFile PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 0
  1337.             Endif
  1338.             FreshLine
  1339.             Wait
  1340.             :LABEL043
  1341.             If ((STRING002 == "U") && (STRING047 > 1)) Goto LABEL027
  1342.             If ((STRING002 == "U") && (STRING047 == 1)) Goto LABEL005
  1343.             Cls
  1344.             AnsiPos 6, 5
  1345.             STRING039 = ""
  1346.             InputYN STRING038, STRING039, ""
  1347.             If (STRING039 == YesChar()) Then
  1348.                 AnsiPos 6, 6
  1349.                 STRING002 = ""
  1350.                 InputStr "@X0C>_", STRING002, "", 58, Mask_Ascii(), 4 + 2
  1351.                 If (STRING002 == "") Goto LABEL005
  1352.                 FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 1, 0
  1353.                 FPutLn 1, "@X0C" + U_Name() + "@X09 >@X0F " + STRING002
  1354.             Endif
  1355.             FClose 1
  1356.             Goto LABEL001
  1357.         Endif
  1358.     Endif
  1359.     :LABEL044
  1360.     BOOLEAN001 = 1
  1361.     If (BOOLEAN002 == 1) Goto LABEL045
  1362.     DefColor
  1363.     STRING020 = "Do Not HEX-Edit This PPE, You will be Sorry"
  1364.     Cls
  1365.     If (STRING044 == S2I(STRING050, 34)) Then
  1366.         If (Exist(PPEPath() + PPEName() + ".chg")) DispFile PPEPath() + PPEName() + ".chg", 4 + 2
  1367.         Newline
  1368.         STRING025 = "N"
  1369.         InputYN STRING019, STRING025, 1
  1370.         If (STRING025 == YesChar()) Then
  1371.             BOOLEAN002 = 1
  1372.             BOOLEAN001 = 0
  1373.             Goto LABEL001
  1374.         Endif
  1375.     Endif
  1376.     Goto LABEL047
  1377.     :LABEL045
  1378.     If (BOOLEAN002 == 0) Stop
  1379.     FClose 1
  1380.     FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  1381.     :LABEL046
  1382.     If (Ferr(1)) Goto LABEL047
  1383.     FDGet STRING006
  1384.     Tokenize STRING006
  1385.     If (TokCount() == 3) Then
  1386.         GetToken STRING033
  1387.         GetToken STRING034
  1388.         GetToken STRING040
  1389.         STRING033 = Strip(STRING033, " ")
  1390.         STRING033 = Strip(STRING033, ".")
  1391.         STRING034 = Strip(STRING034, " ")
  1392.         STRING034 = Strip(STRING034, ".")
  1393.         STRING033 = Left(STRING033, 3)
  1394.         STRING034 = Right(STRING040, 4)
  1395.         If (Exist(PPEPath() + "APPS\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "APPS\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "HG"
  1396.     Endif
  1397.     If (TokCount() == 2) Then
  1398.         GetToken STRING033
  1399.         GetToken STRING034
  1400.         STRING033 = Strip(STRING033, " ")
  1401.         STRING033 = Strip(STRING033, ".")
  1402.         STRING034 = Strip(STRING034, " ")
  1403.         STRING034 = Strip(STRING034, ".")
  1404.         STRING033 = Left(STRING033, 3)
  1405.         STRING034 = Right(STRING034, 4)
  1406.         If (Exist(PPEPath() + "APPS\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "APPS\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "HG"
  1407.     Endif
  1408.     If (TokCount() == 1) Then
  1409.         GetToken STRING033
  1410.         GetToken STRING034
  1411.         STRING033 = Strip(STRING033, ".")
  1412.         STRING033 = Strip(STRING033, " ")
  1413.         STRING034 = Strip(STRING034, ".")
  1414.         STRING034 = Strip(STRING034, " ")
  1415.         STRING033 = Left(STRING033, 3)
  1416.         If (Exist(PPEPath() + "APPS\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "APPS\" + STRING033 + "_" + STRING034 + "." + String(PcbNode()) + "HG"
  1417.     Endif
  1418.     Goto LABEL046
  1419.     :LABEL047
  1420.     End
  1421.  
  1422. ;------------------------------------------------------------------------------
  1423. ;
  1424. ; Usage report (before postprocessing)
  1425. ;
  1426. ; ■ Statements used :
  1427. ;
  1428. ;    1       End
  1429. ;    9       Cls
  1430. ;    4       Wait
  1431. ;    135     Goto 
  1432. ;    353     Let 
  1433. ;    228     Print 
  1434. ;    28      PrintLn 
  1435. ;    118     If 
  1436. ;    4       DispFile 
  1437. ;    2       FCreate 
  1438. ;    9       FOpen 
  1439. ;    4       FAppend 
  1440. ;    31      FClose 
  1441. ;    7       FGet 
  1442. ;    6       FPutLn 
  1443. ;    2       StartDisp 
  1444. ;    1       GetUser
  1445. ;    4       DefColor
  1446. ;    5       Delete 
  1447. ;    2       InputStr 
  1448. ;    4       InputYN 
  1449. ;    8       Gosub 
  1450. ;    11      Return
  1451. ;    20      Inc 
  1452. ;    2       Dec 
  1453. ;    3       Newline
  1454. ;    6       Tokenize 
  1455. ;    41      GetToken 
  1456. ;    2       Stop
  1457. ;    3       KbdStuff 
  1458. ;    257     AnsiPos 
  1459. ;    3       FreshLine
  1460. ;    1       FDefIn 
  1461. ;    27      FDGet 
  1462. ;    1       Copy 
  1463. ;
  1464. ;
  1465. ; ■ Functions used :
  1466. ;
  1467. ;    560     +
  1468. ;    4       -
  1469. ;    116     ==
  1470. ;    5       <>
  1471. ;    8       <
  1472. ;    6       <=
  1473. ;    6       >
  1474. ;    16      >=
  1475. ;    80      !
  1476. ;    36      &&
  1477. ;    25      ||
  1478. ;    2       Len(
  1479. ;    3       Upper()
  1480. ;    10      Left()
  1481. ;    11      Right()
  1482. ;    6       Ferr()
  1483. ;    227     Chr()
  1484. ;    2       RTrim()
  1485. ;    4       Date()
  1486. ;    13      U_Name()
  1487. ;    6       NoChar()
  1488. ;    13      YesChar()
  1489. ;    262     Strip()
  1490. ;    2       Inkey()
  1491. ;    10      String()
  1492. ;    1       Mask_Ascii()
  1493. ;    2       PCBDat()
  1494. ;    43      PPEPath()
  1495. ;    10      PcbNode()
  1496. ;    5       ReadLine()
  1497. ;    3       CurSec()
  1498. ;    14      Exist()
  1499. ;    10      S2I()
  1500. ;    2       GetY()
  1501. ;    6       PPEName()
  1502. ;    15      TokCount()
  1503. ;    8       ScrText()
  1504. ;
  1505. ;------------------------------------------------------------------------------
  1506. ;
  1507. ; Analysis flags : d
  1508. ;
  1509. ; d - Access PCBOARD.DAT ■ 2
  1510. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1511. ;     for many PPE so they can find various informations on the system
  1512. ;     (system paths, max number of lines in messages, ...) but it may also
  1513. ;     be a way to gather vital informations.
  1514. ;     ■ Search for : PCBDAT()
  1515. ;
  1516. ;------------------------------------------------------------------------------
  1517. ;
  1518. ; Postprocessing report
  1519. ;
  1520. ;    3       For/Next
  1521. ;    0       While/EndWhile
  1522. ;    59      If/Then or If/Then/Else
  1523. ;    0       Select Case
  1524. ;
  1525. ;------------------------------------------------------------------------------
  1526. ;                 AEGiS Corp - Break the routines, code against the machines!
  1527. ;------------------------------------------------------------------------------
  1528.